PROC TRUNK (LEVEL)
	
	SETSTROKEWIDTH 5 * LEVEL
	SETRED 160
	SETGREEN 82
	SETBLUE 45
	
	RIGHT 90
	FORWARD 20 * LEVEL
	RIGHT 180
	FORWARD 20 * LEVEL
	BRANCH (LEVEL - 1)
	

PROC BRANCH (LEVEL)
	IF LEVEL > 1 THEN
		LEFT 30
		
		SETSTROKEWIDTH 5 * LEVEL
		SETRED 160
		SETGREEN 82
		SETBLUE 45
		
		FORWARD 3 * LEVEL
		BRANCH (LEVEL - 1)
		
		SETSTROKEWIDTH 5 * LEVEL
		SETRED 160
		SETGREEN 82
		SETBLUE 45
		
		RIGHT 180
		FORWARD 3 * LEVEL
		LEFT 120
		FORWARD 3 * LEVEL
		BRANCH (LEVEL - 1)
		
		SETSTROKEWIDTH 5 * LEVEL
		SETRED 160
		SETGREEN 82
		SETBLUE 45
		
		RIGHT 180
		FORWARD 3 * LEVEL
		RIGHT 150
	ELSE
		LEFT 30
		SETRED 0
		SETGREEN 255
		SETBLUE 0
		SETSTROKEWIDTH 5 * LEVEL
		FORWARD 3 * LEVEL
		RIGHT 180
		FORWARD 3 * LEVEL
		LEFT 120
		FORWARD 3 * LEVEL
		RIGHT 180
		FORWARD 3 * LEVEL
		RIGHT 150
	ENDIF

PROC MAIN (VOID)
	TRUNK (11)
